Digital Pose Collection/Digital Pose Collection.iso/mac/POSE/DATA/MAIN.DXR/00004_Program.ls

Text File | 1996-06-18 | 6.4 KB | 234 lines

global gtemplist, gfilename, gframe, gichi, gface, gcount, gindexlist, gindex, gqtcastnum, ggroupcastnum, gbookcastnum, gbookname, ggroupname, gmax, gfindlist, gbackframe, gfindflg, gcursorposlist, gpagesu, gpagemod, gpage, gnowpos, gmovh, gloch, gfacecastnum, gqtrate

on startMovie
  initglobals()
  clearsprite()
  put " " into field "fld.total"
  put " " into field "fld.page"
  if the machineType = 256 then
    set the textFont of field "fld.total" to "ﾃ‡lﾃ‡r ﾃ唄ﾃ鰻ﾃ叡ﾃ丑"
    set the textFont of field "fld.page" to "ﾃ‡lﾃ‡r ﾃ唄ﾃ鰻ﾃ叡ﾃ丑"
  else
    set the textFont of field "fld.total" to "osaka"
    set the textFont of field "fld.page" to "osaka"
  end if
end

on initglobals
  clearGlobals()
  set gtemplist to []
  set gfindlist to []
  set gindexlist to [100, 30, 1]
  set gindex to 131
  set gfilename to EMPTY
  set ggroupname to 1
  set gframe to 1
  set gichi to 1
  set gcount to count(gfindlist)
  set gqtcastnum to 1
  set gbookcastnum to 2
  set ggroupcastnum to 3
  set gfacecastnum to 100
  set gmax to count(gfindlist)
  set gcursorposlist to [125, 125, 125]
  set gpagesu to 1
  set gpage to 1
  set gpagemod to 0
  set gloch to 80
  set gmovh to 64
  set gqtrate to 2
  find(gindex)
  set the loop of cast 1 to 1
end

on keyDown
  set avol to the soundLevel
  if (the key = "+") and (avol < 7) then
    set avol to avol + 1
    set the soundLevel to avol
  end if
  if (the key = "-") and (avol > 1) then
    set avol to avol - 1
    set the soundLevel to avol
  end if
end

on setglobals anum
  set gichi to line anum of field "Ichi"
  set gface to line anum of field "face"
  set gfilename to line anum of field "filename"
  set ggroupname to line anum of field "Group"
  set gbookname to line anum of field "booknamecast"
  set gframe to line anum of field "frame"
  set gcount to count(gfindlist)
end

on find vindex
  set gfindlist to []
  set atemptext to the text of field ("index" & string(vindex))
  repeat with n = 1 to the number of lines in atemptext - 1
    add(gfindlist, value(line n of atemptext))
  end repeat
  set gcount to count(gfindlist)
  set gpagesu to gcount / 8
  set gpagemod to gcount mod 8
  set gpage to 1
  if gpagemod > 0 then
    set gpagesu to gpagesu + 1
  end if
end

on gfind vgroup
  set gtemplist to []
  set atemptext to the text of field ("group" & string(vgroup))
  repeat with n = 1 to the number of lines in atemptext - 1
    add(gtemplist, value(line n of atemptext))
  end repeat
  set the fileName of cast gbookcastnum to gbookname & ".pct"
  set the fileName of cast ggroupcastnum to vgroup & ".pct"
  set gframe to count(gtemplist)
  repeat with n = 1 to gframe
    set the picture of cast (50 + n) to the picture of cast (getAt(gtemplist, n) + 100)
  end repeat
end

on flashbtn
  puppetSound("click")
  set alocv to the locV of sprite clickOn()
  set aloch to the locH of sprite clickOn()
  puppetSprite(clickOn(), 1)
  set the locV of sprite clickOn() to alocv + 2
  set the locH of sprite clickOn() to aloch + 2
  updateStage()
  delay(10)
  set the locV of sprite clickOn() to alocv
  set the locH of sprite clickOn() to aloch
  updateStage()
  puppetSprite(clickOn(), 0)
end

on movecursor vspritenum
  set aloch to the locH of sprite the clickOn
  set the locH of sprite vspritenum to aloch
  setAt(gcursorposlist, vspritenum - 1, aloch)
end

on setcursor
  repeat with n = 2 to 4
    set the locH of sprite n to getAt(gcursorposlist, n - 1)
  end repeat
end

on setkanban
  set the fileName of cast gqtcastnum to gfilename & ".mov"
  set the fileName of cast ggroupcastnum to ggroupname & ".pct"
  set the fileName of cast gbookcastnum to gbookname & ".pct"
end

on clearsprite
  repeat with n = 1 to 48
    puppetSprite(n, 0)
    set the visible of sprite n to 1
  end repeat
end

on miniqtslider vloch, vmovh
  set gloch to vloch
  set the locV of sprite 6 to 368
  set gmovh to vmovh
  set the movieRate of sprite 6 to 0
  puppetSprite(6, 1)
  set the stretch of sprite 6 to 1
  if gichi = 1 then
    set the width of sprite 6 to 31
    set the height of sprite 6 to 48
  else
    if gframe = 8 then
      set the width of sprite 6 to 64
      set the height of sprite 6 to 48
    else
      set the width of sprite 6 to 40
      set the height of sprite 6 to 30
    end if
  end if
  repeat with c = 1 to gframe
    set the movieTime of sprite 6 to 60 * (c - 1)
    set the locH of sprite 6 to gloch + (gmovh * c)
    updateStage()
  end repeat
end

on searchqt
  set the movieRate of sprite 1 to 0
  repeat while the stillDown
    cursor([97, 98])
    set anowpos to integer((mouseH() - gloch - (gmovh / 2)) / gmovh)
    if (anowpos >= 0) and (anowpos <= (gframe - 1)) then
      set the movieTime of sprite 1 to anowpos * 60
      updateStage()
    end if
  end repeat
  cursor(0)
end

on indexqtslider
  set gloch to 80
  set gmovh to 64
  set gcount to count(gfindlist)
  if gcount > 8 then
    if (gpage = gpagesu) and (gpagemod > 0) then
      set gmax to gpagemod
    else
      set gmax to 8
    end if
  else
    set gmax to gcount
  end if
  set the locV of sprite 12 to 368
  set the movieRate of sprite 12 to 0
  puppetSprite(12, 1)
  repeat with c = 1 to gmax
    set the movieTime of sprite 12 to value(getAt(gfindlist, ((gpage - 1) * 8) + c) - 1)
    set the locH of sprite 12 to gloch + (gmovh * c) - (gmovh / 2)
    updateStage()
  end repeat
  puppetSprite(12, 0)
end

on indexsearchqt
  set gnowpos to integer((mouseH() - gloch) / gmovh) + 1
  if (gnowpos > 0) and (gnowpos <= gmax) then
    set apos to ((gpage - 1) * 8) + gnowpos
    return getAt(gfindlist, apos)
  end if
end

on hideface
  set the visible of sprite 48 to 0
  set the visible of sprite 1 to 1
  updateStage()
end

on putdata vindex
  if vindex = EMPTY then
    repeat with n in gtemplist
      set apos to n
      set gfilename to line apos of field "filename"
      set ggroupname to line apos of field "group"
      set gframe to line apos of field "frame"
      set gichi to line apos of field "Ichi"
      set gface to line apos of field "face"
      put "filename / " & gfilename & " / Group / " & ggroupname & " / frame / " & gframe & " / Ichi / " & gichi & " / face / " & gface & RETURN
    end repeat
    exit
  else
    set n to value(vindex)
    set gfilename to line n of field "filename"
    set ggroupname to line n of field "group"
    set gframe to line n of field "frame"
    set gichi to line n of field "Ichi"
    set gface to line n of field "face"
    put "filename / " & gfilename & " / Group / " & ggroupname & " / frame / " & gframe & " / Ichi / " & gichi & " / face / " & gface & RETURN
  end if
end